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E ba = AST ENQUEUVE AND DELIVERY 
T *v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

® 

® 

® 

® 

* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* TRANSFERRED. 

® 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
* CORPORATION. 
® 

® 

® 

® 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH iS NOT SUPPLIED BY DIGITAL. 
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:++ 
; FACILITY: EXECUTIVE, SCHEDULER 


; ABSTRACT: 

3 ASTDEL CONTAINS THE AST DELIVERY INTERRUPT SERVICE ROUTINE AND THE 
3 ASSOCIATED SUBROUTINES SCHSQAST AND SCHSNEWLVL. THESE ROUTINES 

3 IMPLEMENT THE PRIMITIVE AST QUEUEING AND DELIVERY MECHANISMS. 


; ENVIRONMENT: 
; MODE = KERNEL 


- PAGE 
-SBTTL HISTORY ; DETAILED 


; AUTHOR: R. HUSTVEDT CREATION DATE: 11-SEP-76 
; MODIFIED BY: 
v03-003 sno? Steve Beckhardt 12-Jul-1984 


: xed bug where ACBs queued to non-existent processes 
; are deallocated without checking the NODELETE bit. 
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v03-002 wMC0001 Wayne Cardoza 29-Feb-1984 
Optimize queuing to non-resident process. 


v03-001 ACG0341 Andrew C. Gol datete. 10-Jun-1983 18:59 
Check eng sorrect stack pointer before AST delivery 


to mask microcode bug in RET instruction. 
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~SBTTL SCHSASTDEL = AST DELIVERY INTERRUPT HANDLER 


crn 


| 

| 

fee DESCRIPTION: 
SCHSASTDEL RECEIVES THE AST DELIVERY INTERRUPT (IPL = 2) WHICH | 

IS INITIATED BY AN REI INSTRUCTION DETECTING ASTLVL LESS THAN 

OR EQUAL TO PSL<CURRENT_MODE>. THE HEAD OF THE AST QUEUE | 

FOR THE CURRENT PROCESS IS REMOVED AND PROCESSED. SPECIAL 
KERNEL MODE ASTS ARE PROCESSED WITH IPL REMAINING AT IPL 2. | 
NORMAL ASTS ARE DELIVERED BY PUSHING THE AST INFORMATION ON 

THE STACK OF THE MODE RECEIVING THE AST AND THE AST ACTIVE | 

BIT FOR THAT MODE IS SET TO PREVENT SUBSEQUENT ASTS UNTIL THE 
CURRENT ONE FOR THAT MODE HAS BEEN PROCESSED. | 
SPURIOUS AST INTERRUPTS WILL BE DETECTED AND IGNORED. | 

THIS ROUTINE CONTAINS TWO HOOKS FOR LOADABLE MULT 1 “PROCESSING 

CODE. THE FIRST HOOK, MPHSASTDELNK IS REPLACED BY A BRANCH | 

| TO THE LOADABLE CODE, WHILE THE SECOND HOOK, MPHSASTDELCONT, IS 

THE ENTRY POINT AT GACH ie LOADABLE CODE REJOINS THE COMMON | 

LINE OF EXECUTION. 


; CALLING SEQUENCE: 
iv. = INTERRUPT 


PC AT_AST_ DELIVERY INTERRUPT 
Oa csP) = PSL AT AST DELIVERY INTERRUPT 


; iets’ * INPUTS: 
B OF CURRENT PROCESS LOCATED VIA SCHSGL_CURPCB 
AST CONTROL BLOCK AT HEAD OF AST QUEUE FOR PROCESS 


; ; OUTPUT PARAMETERS: 
NONE 


| 

; INPUT PARAMETERS: | 
Q0(SP) = | 

| 


COMPLETION CODES: 
NONE 
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; INTERRUPT ROUTINES ON LW BOUN 
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me ee ee ed ed 3 SS = a 8 = = 2 


. ALIGN ; 
00 SCHSASTDEL:: : AST DELIV RY INTERRUPT HANDLER 
2? DD 68 ? PUSHL = R5 : SAV 
4 00 8 PUSHL R4 : ONE REGISTER AT A TIME FOR 

53 OD 04 9 PUSHL = R3 ; SPEED AT TH 
ef DD 88 0 PUSHL R2 ; EXPENSE OF SPACE AND | 
1 OD 1 PUSHL RI ; CLARITY 
50 0D OA ¢ PUSHL RO ; (PUSHLS ARE FASTER —_ MOVQ OR PUSHR) 
54 O000°CF DO 000C GETNEXT: MOVL W“SCHSGL_CURPCB,R4 : GET POINTER TO CURRENT PCB 
011 4 ETIPL #IPL$_SYACH ; BLOCK SYSTEM EVENTS 
014 5 MPHSASTDELHK:: : Re emoverntion ah HOOKS IN HERE 
55 1084 OF 0014 § REMQUE orcs. ~ASTQFL(R4) ,R5S ; AND REMOVE HEAD OF QUEUE 
14 1D 18 QEMP : ay IF QUEUE EMPTY | 
1A 8 MPHSASTDELCONT: : MUL Fa Sh are RETURNS TO HERE 
28 0B AS) =«(07~—COES 1A BBCC “WACBSV_ KAST,ACB$B _rmoD(RS), NORM ; BR IF NO AST 
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~SBTTL KAST = SPECIAL KERNEL AST DISPATCHING 


; AST LEVEL WILL BE beer AT 0 (KERNEL) WHILE PROCESSING THE SPECIAL KERNEL 
; AST. iLL BE CORRECTED EVENTUALLY BEFORE IPL IS DROPPED BELOW IPL$_ASTDEL 
; BY REPEATED TRIPS TO GETNEX 


; THE KERNEL AST RO ue IS_ENTERE 
; ADDRESS PL=2 AND THE POINT 
; IN THE Set yes Hy LITY 
LEASE OR OTHERWISE 
B 
5 


VO4~600 KAST = 
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HE SPECIFIED 
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E XT. 
L_A NTER TH 

ITH POIN CONTROL BLOCK 

TI ILIT AST_ ROUTINE 

L HERWIS E AST CONTROL 


—" <= 
ao -—> 


S 
R 
PCB BASE ADDRESS IS IN Ra 


HAVE BEEN PRESERVED AND ARE AVAILABLE FOR 
ROUTINE. 


I 
E 
C 
; REGISTERS RO-R 
; USE BY THE AST 
ES OFTEN QUEUE NORMAL ASTS, Q10 FOR EXAMPLE, ATTEMPT 

R ASTS WITHOUT INCURRING REDUNDANT EXIT AND ENTRY COSTS. 
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PUSHAB GETNEXT : 7 ie ADDRESS TO CONTINUE WITH Q 
SETIPL #IPL$_ASTDEL ; DROP IPL TO PERMIT SYSTEM EVENTS 
JMP @aAcBsC_ RAST CRS) ; DO KERNEL MODE AST 


THIS UNUSUAL CALLING SEQUENCE IS TO MINIMIZE THE NUMBER OF TAKEN BRANCHES 
AND IS EQUIVALENT TO: 

JS @ACBSL_KAST(R5) 

BRB GETNEXT 


Oe kk kt ST 
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Your 850 ASTDEL EXITS mitt P 83:20:60 LEYS SRCIASTOEL MARS? - Gy 
17 .SBTTL ASTDEL EXITS 
174 ; IF THE ASTMODE IS DISABLED OR ACTIVE, THEN SET ASTLVL TO PREVENT 
175 ; FURTHER INTERRUPTS. THERE IS AN ASSUMPTION (AND HAS BEEN FOREVER) 
1% ; THAT AN_INNER ACCESS MODE WILL NOT EXIT TO AN OUTER ACCESS MODE 
17 ; WITH EITHER AN ACTIVE AST OR LEAVING ASTS DISABLED. 
55 ‘ 
180 SLOCKED: : 
058 182 
0 1 § ; THE AST DELIVERY INTERRUPT WAS SPURIOUS, A PENDING IPL=2 INTERRUPT LEFT 
184 ; OVER FROM THE PREVIOUS PROCESS. THESE OCCUR INFREQUENTLY AND ARE DETECTED 
0 185 ; BY COMPARING THE ACCESS MODE OF THE FIRST AST IN THE QUEUE WITH THE CURRENT 
0 1 6 ; MODE OF THE INTERRUPTED PSL. SPURIOUS IPL-2 INTERRUPTS ARE ALSO DETECTED 
0 ; BY THE REMQUE ABOVE FINDING AN EMPTY QUEUE. 
0 189 | 
190 SPURIOUS: : 
10 a6 65 «(OECD 191 INSQUE (R5),PCBSL_ASTQFL(R4) : REQUEUE AT HEAD OF QUEUE 
03 «11 00 ¢ 198 BRB SETLVL : AND SET NEW ASTLEVEL 
E 194; 
op E 195 ; THE AST QUEUE IS NOW EMPTY. EITHER THE AST DELIVERY INTERRUPT IS SPURIOUS 
00 — 196 ; OR ALL OF THE QUEUED ASTS HAVE BEEN CANCELED BY SIMPLY REMOVING THEM FROM THE 
00 E 197 ; QUEUE. INSURE THAT ASTLVL IS SET TO PREVENT FURTHER INTERRUPTS. 
00 E 193 ; R4 = PCB ADDRESS 
90 t a APHSQEMPTYCONT : MULTI-PROCESSING CHECK RETURNS TO HERE 
51 04 00 00 F 3: " MOVL = #4, R1 : SET NULL AST LEVEL 
0031 05 : SET AST LEVEL TO BEST ESTIMATE OF CORRECT ACCESS MODE. 
0031 07 : R1 = NEW ACCESS MODE TO SET IN ASTLVL 
50 6C AG 00 0031 89 SETLVL: MOVL PCBSL_PHD(R4),RO ; GET PROCESS HEADER ADDRESS 
OOCF £9 2] 90 0035 10 MOVB R1,PHB$B_ASTLVL (RO) ; SET ASTLEVEL IN HW PCB 
1 1 DA 0 A 211 MTPR —-R1,#PRS_ASTLVL : AND PROCESSOR REGISTER 
D i ASTDEXIT: + AST DELIVERY EXIT 
50 gE 7D 05D 1 MOVQ  (SP)+,R > RESTORE REGISTERS RO,R1 
52 BE OOD 40 14 MOVQ  (SP)+. : RESTORE REGISTERS R2.R3 
54 BE) O77 04 15 MOVa (SP)+, : RESTORE REGISTERS R4.R5 
02 0046 216 I : AND RETURN 
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DELIVERY NESE T eRe geizbigy PANCMES Sacre, vOR= OO oe | 
LSBTTL NORM = NORMAL AST DELIVERY 


S POINT THE KERNEL STACK IS: 
SAVED 


ASTD = AST ENQUEUE 
¥oe-600 NORM = NORMAL 


=—oO 
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3; NORMAL AST DELIVERY 


—— 


4 
if ASSUME acesy _MODE EQ 
0047 ASSUME ACBSS-MODE EQ 
H bs 004 ; BACKGROUND R3 WITH ZEROES 
51 OB AS FC &F 0049 #°C<3>,ACBSB_RMOD(RS),R1: EXTRACT ACCESS MODE FOR CURRENT AST 
51 AE 02 ep 004F CMPZV  #PSLSV_CURMOD ,#PSLSS_CU RAOD 28(SP),R1 ; 1S CURRENT MODE LEGAL 
1 ii 3 BLSS = § Rios ; BR IF SPURIOUS 
D0 MOVAB (R1)4,R : SET FOR NEXT ACCESS MODE 
C9 OD Ad ET 005A BBC »PCBSB_ASTEN(R4) BLOCKED ; BR IF AST DISABLED 
C4 OC AG E2 005F BBSS R *PCB$B-ASTACT(R4),BLOCKED ; SET AST ACTIVE 
x DA 006 MTPR *#PRS $ASTLVL ; SET AST LEVEL IN PROCESSOR REGISTER 
50 6C AG D0 MOVL pcos R4) RO ; GET PROCESS HEADER ADDRESS 
ocr C0 3} 06 MOVE ote ASTLVL (RO) : se] AST LEVEL IN Hw PCB 
0 A 3 BBC patehv Q00TA, AC CBSB_ RMOD ( (RS) O$ ; SKIP IF NO QUOTA ACCOUNTING 
INCw- CB ASTCNT ERG ; UPDATE OUTSTANDING COUNT 
308: + AND D LIVER As! 
D0 ge SETIPL #IPLS_ASTDEL : NOW DROP IPL TO PERMIT SYSTEM EVENTS 
\ : A NEW VALUE FOR ASTLVL HAS NOW BEEN COMPUTED AND SE 
0078 ; THE AST REPRESENTED BY THE AST CONTROL BLOCK LOCATED V1A 
9078 ; R5 CAN NOW BE DELIVERED. 


PAPITATA BS BF BS BS BS BP BS BAIA AIA AAAI GPOPOPIDIPONININONIN 
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TST = R33 3 CHECK FOR DE 
BNEQ NOTKMODE : IF 


voenbb0 
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H 


B ice 


Pree Oe te ee 
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CALL P 


= AST wont “eekee eeu 


em 


"oy MEREDCIREE GRREBSSY YRvas terpenes 


»SBTTL NORMAL KERNEL MODE AST 
DELIVER NORMAL AST TO KERNEL “ie 


mova { P)s no 
mp (SPS ,@ASTEXIT_ CHMK 0D ay ef byrne ASTEXIT REI? 
. ot 


118 de’ tunnoD MODE 
>>,23(SP); ; te ees 


BEQL ; a3 rota AST RO,R1,PC.PSL ALREADY ON 
P) = R2, 04(SP (SP) = R4, 12¢SP) i 
PUiEEs 5 Fe: SBE S Fe SOO? « “er * ee 
mova (SP), =(SP) : SHUFFLE STACK 
(SP) = R64, 04(SP (SP (SP) « 
9b tg) = RO. 20(SP = ha yt Sphie ne: + 4 ad $3, 
mova: B( SP) ,=( SP) ; OPEN FOR AST ARG LIST. 
(SP) (SP) = R (SP) 
Ugcse) = fas gouge) = AS, ats BES) 
(SP) = 
mova (SP) RO,R1 IN 
MOVL . gé rASTPRACRS? .20(SP) ; aT ast gg TER’ nis ‘AKG ne 
ROVE TSP) 


PUSHL ice Bi ; Mit tate 5 sak 
BBC hepa Px ASTAST ACBSB.. moo ist NO PIGGY-BACK KAST 
Y-BACK SPECIAL KERNEL AST ROUTINE “ 
_—_ SS (MUST PRESERVED &. 
TPL S_ASTDEL (MUST fore ToueRED) 
J$B CBSL_KAST(RS) KAST ROUTINE 
BRB NO, DELEE FOR PRAST 
88S FACBSY NODE NODELETE ,ACBSB_ aniotds GR IF NOT DELETEABLE 
BSBW AGED ! 


ae ee ECE 


3 2 
EXESASTDEL 3 FALL WROUGH he CALL AST ROUTINE eS 


foe : : o a =| 
a oA RY TEIN AE ety 
9 CALL AST ROUTINE WITH AST ARGUMENT LIST 
ti Ast RENT LIST Ow t THE as 3 mel dit T te WITH 
Rei ioe hi ltbl vere 


RE 
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ln 


coe 
rm! 


Poe om 


+>. 


S 
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AST AST ARGUMENT LIST: 


“te 


eeee simncacicacsa eas 


¢ 
tts ‘ 
DOC (SP) = R OF ARGUMENTS, #5 
boca. «$32; (SP) = AST PARAMETER 
y0C 3 382 al 
ta em fi i 
$i 3 sg 
s d0¢ b 3 SP) = SAVED PSL 
noe s Exesastoe::: 2 DELIVER AST CAL 
61 GE FA OGG ; Lis (SP).¢R1D ; CALL AST ROU tas 
if D EXESASTRET:: ; RETURN ADDRESS 
SE 9B 0 0 ADDL #8, SP Z REMOVE ARG COUNT AND ASTPRA 
BC 000 causes Se S*BASTEXIT i AND EXIT FROM AST. ROU 
: DOD 3 6 
50 8E 7B 08 “Ova = (SP) +, RO ; RESTORE ROART 
Done REI EXECUTE REL IN RODE 
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.SBTTL NORMAL EXEC, SUPER AND USER MODE AST 
.ENABLE LSB 


D ; 
D 3 SPECIAL CASE CODE TO HANDLE THE SITUATION WHERE THE OUTER MODE SP HAS 
D : BEEN Foun 08 BELOW TH Fe MEANI oeRE i oer TED A 
D $ S3TUATION CAN R Sut FROM A 780 MICRO SHICH LEAVES THE SP 
D $ WRONG WHEN A RE FAULTS WHILE LOK A THE ARG LIS ° ugheck 
D ; FOR THIS CASE AND SET SP = FP, WHICH IS ADEQUATE TO SERVICE AST 
p ; AND LET THE RET RE~EXECUTE. 
50 (Sb 48 8F C1 00D {$: ADDL3 #18*4,FP,RO : RANGE LIMIT {S$ MAXIMAL FRAME + ALIGNMENT 
sta 1 b DF CMPL fy Rd + CHEC i SP {3 WITHIN RANGE 
D 1A O0E BGTR $ : IF NOT, SOME OTHER PROBLEM ~ DON'T FIX 
51 50 00 E MOVL PRI : SET oufER MODE SP = FP 
8 E? BRB $ : AND CONTINUE 
E9 ; 
3 3 DELIVER NORMAL AST FOR EXEC, SUPER AND USER MODE 
£9 ‘ 
3 NOTKMODE : ; NOT AN AST FOR KERNEL MODE 
51 53 dR O0E MFPR —s RBI 3 GET STACK POINTER 
Sp 51S soéi1sOOEC CMPL —R1.FP : SEE IF STACK PGINTER IS ABOVE FP 
E6 1A OOEF BGTRU 1 + BRANCH IF NOT = POSSIBLE FIXUP 
F1 5$ IFNOWRT #24 seacnt) STACKERR,R3 ; ENOUGH STACK SPACE? 
71 18 AE 7D OOF8 mova  24(§p),-(Rr1$ : MOVE PC,PSL TO PROPER STACK 
71. BE 7D OFC mova = ( Bis =¢R1) : AND RO,R1 FROM KERNEL STACK 
000000D3'8F 10 AE p FF CPL } “SP§ ,MASTEXIT_CHMK DELIVERY OCCUR URI ASTEXIT REI? 
71 #14AS OD 9 10$: MOVE  AIBSL_ASTPRM(RS),-(R1) : SET AST PARAMETER IN ARG LIST 
71 Q D D MOVL #s (RI) : AND FINALLY, ARGUMENT COUNT OF 5 
53 51. «ODA 9 MTPR R192 : SAVE UPDATED STACK POINTER 
10 A> Dp 1 PUSHL acés _AST(RS) : STACK AST ENTRY POINT 
50. 5 p 18 MOVL : SET ADDRESS OF ACB FOR RELEASE 
14 ag AF AF 9E (011 MOVAB EXESASTDEL,20(SP) : SET PC TO AST DELIVERY CALL 
3 6343 DE 011 MOVAL + MODE=MODE*5 = 
ASSUME PSLSV_CURMOD EQ Psisy PRVMOD+2; FOR ABOVE MOVAL 
18 AE 53 6 7 ASHL = #PSLS$Y_PRVMOD_R3,24(SP) ; SYNTHESIZE PSL FOR PROPER MODE 
0B A 9 BITS § #<ACBSA_NODELETE!ACBSM_PKAST>,ACBSB_RMOD(R5) ; SPECIAL ACTIONS? 
1 B BNEQ  40$ ; BR fF SO DE 
FEDO’ 208: BSBW EXESDEANONPAGED : RELEASE AST CONTROL BLOCK 
1 BE 7D $: MOVO (SP)4,R : RESTORE R1,R 
3 BE 7D MOVa  (SP)4:R > RESTORE R3.R 
5 OBE 00 : MOVL  (SP)4:R : RESTORE R 
REI : AND ENTER AST MODE 
A : DROPS IPL TO ZERO 
F1 0B AS 04 €1 A 40$: BBC #ACBSV_PKAST,ACBSB_RMOD(RS),30$ ; BR IF NO PIGGY-BACK KAST 
F + CALL PIGGY-BACK SPECIAL KERNEL AST ROUTINE. 
F : R5 = ACB ADDRESS (MUST BE PRESERVED) 
i : IPL = IPL$_ASTDEL (MUST NOT BE LOWERED) 
1885 16 F ‘ JSB QACBSL_KAST (RS) : CALL KAST ROUTINE 
EC (11 42 BRB 0$ : NO DELETE FOR PKAST 
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B8 
53 03 
11 
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00 0C AS 5 
7E 10 AE 
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20 AE 28 ‘f 
28 AE 810A 
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1 af 51 
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E AND DELIVERY 15-SEP-1984 23:5 AX/VMS Macro VO4=00, p 
SUPER AND USER MODE AST ~$ee =} Se 88i20;00 _ 


; SPECIAL CASE FOR AST DURING AST EXIT. 
$ Sos:  CMPZV #PSLSV. CURMOD,=- 


SYS.SRCJAS TDEL.MAR; 1 


; WAS AST'S MODE THE ONE INTERRUPTED? 
: NO Just CONTINUE 
RESET 


SLSS-CURMOD,20(SP),R3 ; 


a 
10$ ; CONTINUE 


«DISABLE LSB 


@w 
=z 
m 
oO 
e. 


REFLECT STACK ERROR 


STACKERR: : ERROR IN STACK MOVE 
CMPL #PSLSC_USER,R3 : IS THIS AST FOR USER MODE? 
BNEQ : NO, THEN WE CANT EXTEND THE STACK 
PUSHR —#*H<R1 R2,R3,R4 ,RS> : SAVE NECESSARY REGISTERS 
MOVAB 4(R : COMPUTE DESIRED STACK TOP ADDRESS 
JSB EXESEXPANDSTK + EXPAND USER STACK TO DESIRED SIZE 
POPR 1 Re, R3,R4,R5> : RESTORE REGISTERS 
BLBS RO, NO MODE : CONTINUE IF SPACE CREATED 

10$ BBCC—OséR ‘Popse ASTACT(R4),20$ ; CLEAR AST ACTIVE BIT 

20$ MOV 16(SP), “TSP P) : CREATE SPACE ON STACK 
MOVQ 16(SP);=(SP) + BY MOVING R2-R5 DOWN 
MOV 40(SP);32(SP) : SAVE PC,PSL AT INTERRUPT 
MOVL  ACBSL_AST(R5) ,40(SP) : SET PC AT FAULT TO AST ADDRESS 
MOVL  ACBSL~ASTPRM(RS) ,28(SP) ; SET ASTPRM IN ARGLIST 
MOVL R1,24TSP) 3; SAVE STACK VA AT FAULT 


5 L 
MULL —-#14<1<PSLSV_CURMOD-PSLSV_PRVMOD>>,R3__ CURRENT MODE = PREV 
ROTL #PSLSV, PRVMOD,R3,44 (SP) SYNTHESIZE N NEW PSL FOR FAULT 

RS_R SET ADDRESS FOR RELEASE OF ACB 
BBC #ACBSV_PKAST,ACBSB pee * 30$ ; BR IF NO PIGGY-BACK KAST 


CALL PIGGY-BACK SPECIAL KERNEL AST ROUTINE. 
5 = ACB ADDRESS (MUST BE PRESERVED) 
IPL = IPLS_ASTDEL (MUST NOT BE LOWERED) 


JSB @ACBSL_KAST(RS) : CALL KAST ROUTINE 
BRB 40$ DELETE FOR PKAST 
30$: BBS #ACBSV NODELETE, ACBSB_ Amdo Rs) 40$; BR IF KNOT DELETEABLE 
BSBW EXESD KNONPAGED : AND DEALLOCATE IT 
40$:  POPR »R3,R4, 8, ; RESTORE ALL REGISTERS 
POPR ener *Ri> : FROM POINT OF INTERRUPT 
SETIPL #0 + DROP IPL TO 0 
Ru EXESASTFLT t REFLECT EXCEPTION 


- RO,R1,PC,PSL ALREADY ON STACK 
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ASTD - AST ENQUEUE AND DELIVERY SEP=1984 23:5 AX/VMS Macro V04-00 Page a | 
Ga-500 SCHSQAST = ENQUEUE AST CONTROL BLOCK FOR Jf -SEP=1 198 83; 28:30 SYS. SRCJASTDEL.MAR; 1 wi 
1¢6 469 .SBTTL SCHSQAST = ENQUEUE AST CONTROL BLOCK FOR PROCESS 
if 471 ; FUNCTIONAL DESCRIPTION: 
1€6 ie : SCHSQAST INSERTS THE AST CONTROL BLOCK SUPPLIED IN THE PROPER 
106 «473: POSITION BY ACCESS MODE IN T QUEUE OF THE PROCESS SPECIFIED 
106 «474: Y THE PID FIELD OF THE AST CONT ROL BLOCK. AN AST ARRIVAL EVENT 
106 «475: rH THEN REPORTED FOR THE PROCESS TO REACTIVATE FROM A WAIT STATE 
1€6 476 ; IF APPROPRIATE. THE AST CONTROL BLOCK WILL BE RELEASED IMMEDIATELY 
16 47 ; IF THE PID SPECIFIES A NON-EXISTENT PROCESS. 
gree 138 ; LOADABLE MULTI-PROCESSING CODE WILL REPLACE THIS ROUTINE WITH 
F NTIRELY NEW CODE, AT MPHSOAST. 
iC 4 0 ENTIRELY NEW CODE, AT MPHSQAST 
0166 ae + CALLING SEQUENCE: 
Bice tbe 3 BSB/JSB SCHSQAST 
01C6 485 : INPUT PARAMETERS: 
01€6 486 : Re - PRIORITY INCREMENT CLASS 
; - POIN NTROL BLOCK 
bi 6 487 R5 = POINTER TO AST CONTROL BLOC 
01C6 489 ; IMPLICIT INPUTS 
O1¢6 490 j PCB OF PROCESS IDENTIFIED BY PID FIELD 
0166 492 : OUTPUT PARAMETERS: 
0106 493: RO = COMPLETION STATUS CODE 
Bice $3¢ 3 : R4 = PCB ADDRESS OF PROCESS FOR WHICH AST WAS QUEUED 
0106 496 ; SIDE EFFECTS: 
106 497 ; THE PROCESS IDENTIFIED BY THE PID IN THE AST CONTROL BLOCK 
Biee re : WILL BE MADE EXECUTABLE IF NOT SUSPENDED. 
01C6 500 : COMPLETION CODES: 
01€6 501: NORMAL = NORMAL SUCCESSFUL COMPLETION STATUS 
B1e8 288 $ SS$"NONEXPR = NON-EXISTENT PROCESS 
0166 504 .ENABL LSB 
01C6 505 QNONEXPR: 
01€6 506 ; DEALLOCATE THE ACB as LONG AS THE NODELETE BIT IS NOT SET. 
01€6 507 : THIS REALLY SHOULDN'T HAPPEN, BUT IF IT DOES, WE CHOOSE 
0106 208 : TO POSSIBLY LOSE POCL OVER POSSIBLY CORRUPTING IT. 
06 0B AS) =«(0S~SsC*EO bree 510 BBS #ACBSV_NODELETE ,ACBS$B_ MOD (R5) 5$; BR IF NOT DELETEABLE 
50 55 pO 01¢B 511 MOVL  R5,RO ~ ; RELEASE AST CONTROL BLOCK 
peer 0 ce 318 BSBW  EXESDEANONPAGED : r . SUCH PROCESS 
50 O8€8 8F 3c O1D 13 5$: MOVZWL #SS$_NONEXPR,RO : SET ERROR STATUS CODE 
D BRB : AND EXI 
43.11 16 314 QEXIT EXIT 
O1pa 316 MPHSQAST: : ; MULTI-PROCESSING HOOK TO REPLACE RIN 
108 17 SCHSQAST:: + ENQUEUE AST FOR PROC 
50 OC AS 3C OD 18 MOVZWL ACBSL_PID(R5) RO + GET PROCESS INDEX FOR AST TARGET 
1D 1 DSBINT #IPL$7SYNCH ; DISABLE SYSTEM EVENTS 
54 0000'DF40 DO OIE 0 MOVL al u-scRscL PCBVECCRO],R4 : LOOK UP PCB ADDRESS 
60 AS OC AS D1 OIE 1 CMPL ACBSL PIDTRS) ,PCBSL PIDCRA) CHECK FOR MATCH IN PID 
7 12 OED ‘ BNEQ  QNONERPR ; PIb MISMATCHES 
Q p4 O1EF CLRL + ASSUME KERNEL MODE AND CLEAR HIGH BITS 
10 AG : Of 1F1 4 INSQUE (R5S),PCBSL_ASTQFL(R4) : ASSUME QUEUE IS EMPTY anb ATTEMPT INSERT 
we 1F5 5 BNEQ 508 : BR IF IT WAS NOT EMPTY 
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ASTD T ENQUEUVE AND DELIVERY SEP=1984 23:50:41 VAX/VMS Macro v04-00 Page 14 
You e550 SCH QAST = ENQUEUE AST CONTROL BLOCK FOR or ee bbe §3: :40:00 YOYS SR SRCJASTDEL. MAR; 1 - it 
0B AS 95) «(O1F7 TSTB © ACBSB_RMOD(RS) ; CHECK FOR SPECIAL KERNEL AST 
6 19 O1FA 3 BLSS e > BR IF YES 
50 OB AS FC 8 8B O1FC : BICB3 Prec3>, ACBSB_RMOD(RS),RO: GET AST MODE 
0 : THE PROCESS HEADER ieask Is ALWAYS A SYSTEM SPACE ADDRESS (NEGATIVE NUMBER) 
1 : WHILE THE PROCESS HEADER IS RESIDENT . DURING THE OUTSWAP TRANSITION IT IS 
g : THE BALANCE SLOT INDEX, A SMALL POSITIVE NUMBER. FINALLY, AFTER OUTSWAP IT 
\ : IS SET TO ZERO. HENCE, E FOLLOWING TEST COMBINES THE FETCH OF THE PHD 
%& 0 4 : ADDRESS WITH THE TEST FFE oR” PROCESS RESIDENCE. 
6 : 10s MOVL PeBSL_ PHD(R4),R1 : POINT TO PROCESS HEADER 
06 33 BGEQ 25% : DON'T SET ASTLVL IF NOT RESIDENT 
8 MOVB RO, PHDSB_ASTLVL(R1) + SET ASTLVL IN PROCESS HEADER 
0p 539 CMPL  W*SCHSGL“CURPCB,R4 : IS PROCESS CURRENT PROCESS 
12 540 BEQL 405 : YES, 
16 541 358 RPTEVT AST : REPORT AST ARRIVAL 
18 248 MOVZWL #SS$_NORMAL,RO + SET SUCCES TUS CODE 
18 543 QEXIT: ENBINT : ENABLE INTERRUPTS 
gie B44 RSB : AND RETURN 
P1F 5466 : IF THE AST IS BEING ENQUEUED FOR THE CURRENT PROCESS, THEN THE REPORTING 
2if 547 : OF THE AST EVENT CAN BE BYPASSED AND THE ASTLVL PROCESSOR REGISTER MUST BE 
git 248 : SET INSTEAD. 
1F 550 408: MTPR RO,#PaS_ASTLVL ; ALSO SET ASTLVL REGISTER 
g2 231 BRB 30$ ; 
224 338 ; THE AST QUEUE WAS NOT EMPTY (ITS USUAL CONDITION) AND THE PROPER 
24 554 : POSITION FOR THE NEW AST MUST BE LOCATED. SINCE THE AST CONTROL 
$e $22 ; BLOCK HAS BEEN ERRONEOUSLY INSERTED ON THE QUEUE, IT MUST BE REMOVED 
324 557 : 
24 558 Sos: REMQUE (R5),R5 : ELSE CORRECT MISTAKE 
927 559 MOVAL PCBSL_ASTQFL(R4),R1 : POINT TO QUEUE HEADER 
2B 360 CVL. = (R11) : GET FIRST ENTRY ON QUEUE 
— 561 TSTB ACB$B_RMOD(RS) : CHECK FOR SPECIAL KERNEL AST 
06 1 268 BGEQ 70$ : BR IF NOT 
08 564 : THE NEW AST IS A SPECIAL KERNEL AST. IT WILL GO AFTER ALL OTHER SPECIAL 
0 265 : KERNEL ASTS OR AT THE HEAD OF THE QUEUE IF THERE ARE NONE. 
53 51~«OD 6 67 60$: CMPL = R1,R3 : CHECK FOR END OF QUEUE 
27.13 6 68 BEQL =-—«X110$ : BR IF NOT 
0B AS «95 9 TSTB © ACB$B_RMOD(R3) : CHECK FOR SPECIAL KERNEL IN QUEUE 
28 18 B 0 BGEQ 110$ : BR IF N 
53 63 0 D 1 MOVL (R3),R3 : FLINK ON TO NEXT ACB 
nm Hi 4 re BRB 60$ ; 
4 74 \: THE NEW AST IS A NORMAL AST. IT WILL GO AFTER ALL SPECIAL KERNEL ASTS 
4 f3 AND ASTS WITH LOWER ACCESS MODE. 
50 OB AS FC ef 8B 024 6 ? BICB3 wed, ,ACB$B_RMOD(R5S),RO; GET AST MODE | 
53. 51 S124 28 803: CMPL : CHECK FOR END OF QUEUE 
1 13 0248 Beat ~«=s«d108 : INSERT IF AT END 
02 00 ED 0240 0 \  CMPZV #ACBSV MODE , MACB$S_MODE,- 
50 OBA 0 20 ACBSB_ RMOD(R3) ,RO : COMPARE ACCESS MODES 
05 1% 025 : IF GTR AT RIGHT PLACE 


1 \ 
2 \ BGTR 
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ASTD ENQUEVE AND DELIVERY 15-SEP-1984 23:50:41 VAX/VMS Macro V04-00 
Vv 2550 SCHSOAS! ~ ENQUEVE AST CONTROL BLOCK FOR 53-1 obe §3: 8:30 ESYS SRCIASTDEL MAR: 1 
53 ts 9 ; 7 90$: MOVL (R3) ,R3 ; FLINK ON TO NEXT ACB 
08 ag 95 A 5 100$:  TSTB aa chitin ; IS THIS ENTRY A_ SPECIAL KAST? 
F6 «19 p § BLSS 9 ; YES, MUST GO AFTER THIS 
F 8 ; NOW THE CORRECT POSITION HAS BEEN LOCATED. INSERT THE AST CONTROL BLOCK 
F 9 ; ON THE QUEUE AND COMPUTE THE NEW VALUE FOR ASTLVL BY INTERROGATING THE 
; a ; MODE OF THE AST CONTROL BLOCK AT THE HEAD OF THE QUEUE. 
0483 65 O€ ef 3 110$:  INSQUE (R5) ,@ACBSL_ASTQBL(R3) ; INSERT AFTER PREVIOUS 
504 $3 9 CLRL RO ; ASSUME KERNEL 
51 10 AS 0 6 94 MOVL PCBSL_ASTQFL(R4) ,R1 : GET ay sf) AST QUEUE 
OB Al 9 69 95 TSTB ACBS$B_RMOD(R1) : IS IT 
94 19 6C 96 BLSS 10 ; BR_IF Ves. to SET A 
50 OB Al FC BF 8B oF 97 BICB3 #*C<3>,ACBSB_RMOD(R1) ,RO; GET AST MODE FOR HEAD OF QUEUE 
8C 11 0274 598 BRB 10$ ; GO SET ASTLVL 
0276 599 
0276 600 -OSABL LSB 
b55¢ 601 ASSUME ACBS$V_MODE EQ 0 
0276 60 ASSUME ACBS$S"MODE EQ 2 
0276 8660 ASSUME ACBS$VIKAST EQ 7 
0276 604 


T ENQUEUVE AND DELIVERY ee i ates $3: 28:6) ars Caco 
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SCHSNEULVL + COMPUTE HEU AST LEVEL SEP-1984 SYS.SRCIAS i 


CJA TDEL. MAR; 1 


SCHSNEWLVL = COMPUTE NEW ASTLVL | 


f $ ~SBTTL SCHSNEWLVL = COMPUTE NEW AST LEVEL 
te Boe 
76 «64610; THIS ROUTINE COMPUTES THE NEW AST LEVEL. MPHSNEWLVLHK IS 
76 «6611; THE LOCATION OF A HOOK FOR LOADABLE MULTI-PROCESSING CODE. 
16 18 ; THE REMAINDER OF THE ROUTINE IS REPLACED BY THE LOADABLE CODE. 
76 «614 : INPUT: 
0 76 «6615; R4 = ADDRESS CF CURRENT PCB 
76 218 
0 26 617 ; OUTPUT: 
7 618 ; PRS$_ASTLVL = NEW AST LEVEL 
0276 619; PHDSV_ASTLVL = NEW AST LEVEL 
0276 620; 
0276 621 -ENABL LSB 
0276 «6 j SCHSNEWLVL: : : COMPUTE NEW AST LEVEL 
50 10A4 DE 0276 6 MOVAL PCBSL_ASTQFL(R4) RO : GET ADDRESS OF AST QUEUE 
027A 624 DSBINT #IPL$"SYNCH : DISABLE SYSTEM EVENTS 
52 D4 0280 625 CLRL = RR : ASSUME KERN DE 
51 60 00 Og8e 626 MOVL Reo) R1 + GET FLINK 
51 50 «D1 85 627 CMPL ~— RO, R4 : AND CHECK FOR EMPTY QUEUE 
18 13 0288 628 BEQL ait : YES, QUEUE IS EMPTY 
OgBA 6¢9 ASSUME ACBSV_KAST EQ 7 
0B Al 95 028A 630 TSTB ACB$B-RMOD(R1) ; CHECK FOR KERNEL AST 
6 19 0280 631 BLSS 10$ IF NOT 
52 OB Al FC 8F 8B O28F 632 
50 6C AS DO 0295 633 10S: MOVL PCBSL_PHD(R4),RO : GET ADDRESS OF PHD 
0299 634 MPHSNEWLVLHK:: : MULTI-PROCESSING HOOK REPLACES REST 
0299 635 : OF THIS ROUTINE 
0299 636 ASSUME PHD$S_ASTLVL EQ 8 ; FOR USE OF MOVB 
OOCF CO 52 90 0299 637 MOVB R2,PHD$B_ASTLVL(RO) ; SET ASTLVL 
13 52 DA O29E 638 TPR  ——- R2, #PRS_ASTLVL : SET ASTLVL REGISTER 
02A1 639 ENBINT : ENABLE SYSTEM EVENTS AGAIN 
05 0244 640 $B : RETU 
02A5 641; 
52 04 dO 02A5 64g 20S: MOVL  #4,R2 : SET NULL AST LEVEL 
EB 11 O2A8 64 BRB 10$ : 
O2AA 644 .DSABL LSB 


0 R 

BICB3 #*C<3>,ACB$B_RMOD(R1) ,R2: GET REQUEST MODE 
| 
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ASTD - AST ENQUEUE AND pet iveny 1 | re) AX/VMS Macro eet +7 Page 
V 500 SCHSSWAPACBS = SWAP AST CONTROL BLOCKS 7 SEF =}382 83: 20:60 SYS.SRCJASTDEL.MAR;1 ° 

AA $ -SBTTL SCHSSWAPACBS = SWAP AST CONTROL BLOCKS 
a r »SBTTL SCHSREMOVACB = REMOVE AST CONTROL BLOCK 
AA e¢8 p++ 
AA e209 3 

ro $2) ; FUNTIONAL DESCRIPTION: 
AA 836 ; SCHSSWAPACBS REMOVES AN ACB FROM AN AST QUEUE AND INSERTS ANOTHER 

O2AA 654 ; C -E. IT SWAPS THE TWO ACBS. THIS IS NORMALLY 

QO2AA 655 ; DONE BECAUSE THE ACB BEING REMOVED IS PART OF A LARGER STRUCTURE 
AA 928 3 THAT MUST ED UP FOR ANOTHER PURPOSE. B BEING 
AA 657; INSERTED IS NORMALL OPY OF THE ONE BEING REMOVED EXCEPT THAT THE 
AA 658; ACBSM_NODELETE BIT IS NORMALLY CLEARED. I.E. THE ONE BEING 

8 we 223 3 REMOVED WAS NOT DELETABLE BUT THE ONE BEING INSERTED IS. 
AA 661: 

§ AA $66 z SCHSREMOVACB IS AN ALTERNATE ENTRY POINT THAT SIMPLY REMOVES 

O2AA 663 ; AN ACB FROM AN AST QUEUE. 

O2AA 664 ; 

O2AA 665 ; CALLING SEQUENCE: 

O2AA 666 ; 

QO2AA 667 ; BSB/JSB SCHSSWAPACBS 

O2AA 668 ; BSB/JSB SCHSREMOVACB 

ce rh : NOTE: THESE ROUTINES MUST BE CALLED AT IPL$_SYNCH 

O2AA 671 ; INPUT PARAMETERS: 

O2AA of¢ ; 

O2AA 673; R2 ADDRESS OF ACB TO INSERT (SCHSSWAPACBS ONLY) 

pe ore ; R5 ADDRESS OF ACB TO REMOVE 

O2AA 676 ; OUTPUT PARAMETERS: 

O2AA 677; 

2AA «66678; NONE 
AA 680 
AA 681 SENOSUAPACSS «3 

65 62 OE OQ2AA ret NSQUE (R2),(R5) ; INSERT NEW ACB AFTER OLD ONE 
BgAd 683 SCHSREMOVACB:: 
55 65 OF O2AD 684 REMQUE (R5),R5 ; REMOVE OLD ACB 
05 0280 685 RSB 

02B1 o88 

02B1 687 

02B1 688 

02B1 689 END 


ASTDEL 
Symbol table 


ACBSB_RMOD 
ACBS 


L“PID 
ACBSM~NODELETE 
AC KAST 


ASTEXIT 

ASTEXIT CHAK 
CTLSAL_IPASTVEC 
EVTS_AST 


EXESASTDEL 
EXESASTFLT 


EXESIPAPBKAST 
GETNEXT 
IPL$_ASTDEL 
IPL$~SYNCH 
KMOD 
MPHSASTDELCONT 
MPHSAS TDELHK 
MPHSNEWLVLHK 
MPHSQAST 
MPHSQEMPTYCONT 
NORM 

NOTKMODE 
PCBS$B_ASTACT 
PCBS$B_ASTEN 


PSLSC_USER 
PSL$M~CURMOD 


PSL$V~CURMOD 
PSLSV_PRVMOD 


QEMP 
QEXIT 


SCHSASTDEL 
SCH$GL_CURPCB 
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04 
18 
: : 
0 
$008 9 
3 
0 4 
0000006 
4 03D R 02 
000 ite 
44 4 643 R 0 
00000028 R 8 
eekeeeee x 
eeeekeee x 3 
000000CB RG 0 
Reeeenee x 02 
OOOOOOCE RG 02 
eeekeeee x 0 
eeeeekee x 03 
QOOOO1AE RG 0 
QOO0000C R 02 
Bop; boOE 
0000000 
Q000007F R 02 
444 4d RG 02 
00000014 RO 02 
00000299 RG 02 
000001D8 RG 02 
see's Saf RG 02 
00000047 R 02 
4 4 943 R 02 
0000000C 
BpobOnt 
9494 9h 
0000006C 
4 4 C14 
seunt0¢, 
000001 
0001 
; 0 
b3 
S38 
0000016 
0 ef ® 
BR 
£8 R 
000 RG 
eereeeee x 


$ 
$ 
$ 
L 
R 


CKE 


REMOVACB 


SWAPACBS 
VL 

10US 
NONE XPR 
NORMAL 
KERR 


13 eeen18be 88:20; 
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ReaREeee 


SHES 


RERRREEE 
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ASTDEL = AST ENQUEVE AND DELIVERY ot sat 9 $3 28 41 VAX/VM 
Psect synopsis ~SEP-1984 40:00 (CSYS.S 
$emmmweoeococcoe ot 
! Psect synopsis ! 
$emwwwseeecoococe + 
PSECT name Allocation PSECT No. Attributes 
. ABS i444 00 < 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NO 
ABSS$ 00000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR 
ASEXENONPAGED 00000281 689.) 02 ¢( 2.) NOPIC USR CON REL LCL NOSHR 


! Performance indicators ! 


$eoen eee cee ree eee ces an ecae + 


Phase Page faults CPU Time Elapsed Time 
Initialization 39 08: 80 300-09 80 0301-06 
Command processing 169 00:00:00.57 ee Ee 
Pass 1 295 00:00:08.99 00:00:32.80 
Symbol table sort 8 Sb SE Bd? BR 208-16 
Pass 13 B88: 08: 00:00:10.1 
Symbol table output 00:00:00.07 es Sa 
Psect synopsis output 5 00:00:00.02 0:00:00.02 
Cross-reference output ! BB bo: 48°89 4 Saas 
Assembler run totals 65 00:00:13. 00:00:54.30 


The working set Limit was 1350 pages. 

51439 bytes (101 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 852 non-local and 31 local symbols. 
689 source lines were read in Pass 1, producing 14 object records in Pass 2. 

21 pages of virtual memory were used to define 20 macros. 


+ + 
: Macro Library statistics : 


Macros defined 


Macro Library name 


"$255$DUA28:(SYS-OBJILIB.MLB; 1 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 
TOTALS (all Libraries) 17 
951 GETS were required to define 17 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:ASTDEL/OBJ=OBJ$:ASTDEL MSRC$:ASTDEL/UPDATE=(ENH$:ASTDEL) +EXECMLS/LIB 
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